Sub 집계함수변경()

    ActiveSheet.PivotTables("피벗 테이블1").PivotFields("개수 : 판매액").Function = xlSum

End Sub